object Form1: TForm1
  Left = 196
  Top = 101
  Width = 347
  Height = 302
  Caption = 'Demo6 - FindKey Example 3'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  TextHeight = 16
  object Label1: TLabel
    Left = 29
    Top = 11
    Width = 29
    Height = 16
    Caption = 'City:'
  end
  object Label2: TLabel
    Left = 30
    Top = 43
    Width = 37
    Height = 16
    Caption = 'State:'
  end
  object DBGrid1: TDBGrid
    Left = 12
    Top = 75
    Width = 317
    Height = 110
    DataSource = DataSource1
    TabOrder = 2
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'System'
    TitleFont.Style = []
  end
  object Button1: TButton
    Left = 34
    Top = 224
    Width = 113
    Height = 33
    Caption = 'FindKey'
    TabOrder = 3
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 93
    Top = 9
    Width = 121
    Height = 24
    TabOrder = 0
  end
  object Button2: TButton
    Left = 181
    Top = 225
    Width = 113
    Height = 33
    Caption = 'FindNearest'
    TabOrder = 4
    OnClick = Button2Click
  end
  object Edit2: TEdit
    Left = 94
    Top = 41
    Width = 121
    Height = 24
    TabOrder = 1
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 8
    Top = 187
  end
  object Table1: TTable
    IndexName = 'ByCityState'
    TableName = 'newcust'
    Left = 46
    Top = 192
    object Table1CustNo: TFloatField
      DisplayWidth = 10
      FieldName = 'CustNo'
    end
    object Table1City: TStringField
      DisplayWidth = 15
      FieldName = 'City'
      Size = 15
    end
    object Table1State: TStringField
      DisplayWidth = 9
      FieldName = 'State'
    end
    object Table1Company: TStringField
      DisplayWidth = 30
      FieldName = 'Company'
      Size = 30
    end
    object Table1Addr1: TStringField
      DisplayWidth = 30
      FieldName = 'Addr1'
      Size = 30
    end
    object Table1Addr2: TStringField
      DisplayWidth = 30
      FieldName = 'Addr2'
      Size = 30
    end
    object Table1Zip: TStringField
      DisplayWidth = 10
      FieldName = 'Zip'
      Size = 10
    end
    object Table1Country: TStringField
      DisplayWidth = 20
      FieldName = 'Country'
    end
    object Table1Phone: TStringField
      DisplayWidth = 15
      FieldName = 'Phone'
      Size = 15
    end
    object Table1FAX: TStringField
      DisplayWidth = 15
      FieldName = 'FAX'
      Size = 15
    end
    object Table1TaxRate: TFloatField
      DisplayWidth = 10
      FieldName = 'TaxRate'
    end
    object Table1Contact: TStringField
      DisplayWidth = 20
      FieldName = 'Contact'
    end
    object Table1LastInvoiceDate: TDateTimeField
      DisplayWidth = 13
      FieldName = 'LastInvoiceDate'
    end
  end
end